home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / src / ConfigFileSrc.lha / ConfigFileSrc12 / RexxLibrary / Funcs / GetOf.c < prev    next >
Encoding:
Text File  |  1997-10-02  |  2.5 KB  |  116 lines
  1. /*
  2. **        $PROJECT: RexxConfigFile.library
  3. **        $FILE: GetOf.c
  4. **        $DESCRIPTION: rxcf_Get#?Of#?() functions
  5. **
  6. **        (C) Copyright 1997 Marcel Karas
  7. **             All Rights Reserved.
  8. */
  9.  
  10. IMPORT struct Library *CFBase;
  11.  
  12. /****** rexxconfigfile.library/cf_GetHdrOfGrp ********************************
  13. *
  14. *   NAME
  15. *        cf_GetHdrOfGrp -- Get the parent node of a group node.
  16. *
  17. *   SYNOPSIS
  18. *        Header = cf_GetHdrOfGrp(GrpNode)
  19. *
  20. *        HEADER/N cf_GetHdrOfGrp(GRPNODE/N/A)
  21. *
  22. *   FUNCTION
  23. *        This function gets the parent node (Header) of a group node.
  24. *
  25. *   INPUTS
  26. *        GrpNode - The group node.
  27. *
  28. *   RESULT
  29. *        Header - Pointer to the header.
  30. *
  31. *   SEE ALSO
  32. *        cf_GetGrpOfArg(), cf_GetArgOfItem()
  33. *
  34. ******************************************************************************
  35. *
  36. */
  37.  
  38. UWORD rxcf_GetHdrOfGrp ( RX_FUNC_ARGS, CFGroup * GrpNode )
  39. {
  40.     CFHeader    * Header;
  41.  
  42.     if ( Header = cf_GetHdrOfGrp (GrpNode) )
  43.         *ResStr = CreateNumArgStrP (Header);
  44.     return (RC_OK);
  45. }
  46.  
  47. /****** rexxconfigfile.library/cf_GetGrpOfArg ********************************
  48. *
  49. *   NAME
  50. *        cf_GetGrpOfArg -- Get the parent node of an argument node.
  51. *
  52. *   SYNOPSIS
  53. *        GrpNode = cf_GetGrpOfArg(ArgNode)
  54. *
  55. *        GRPNODE/N cf_GetGrpOfArg(ARGNODE/N/A)
  56. *
  57. *   FUNCTION
  58. *        This function gets the parent node (GrpNode) of an argument node.
  59. *
  60. *   INPUTS
  61. *        ArgNode - The argument node.
  62. *
  63. *   RESULT
  64. *        GrpNode - Pointer to the group node.
  65. *
  66. *   SEE ALSO
  67. *        cf_GetHdrOfGrp(), cf_GetArgOfItem()
  68. *
  69. ******************************************************************************
  70. *
  71. */
  72.  
  73. UWORD rxcf_GetGrpOfArg ( RX_FUNC_ARGS, CFArgument * ArgNode )
  74. {
  75.     CFGroup    * GrpNode;
  76.  
  77.     if ( GrpNode = cf_GetGrpOfArg (ArgNode) )
  78.         *ResStr = CreateNumArgStrP (GrpNode);
  79.     return (RC_OK);
  80. }
  81.  
  82. /****** rexxconfigfile.library/cf_GetArgOfItem *******************************
  83. *
  84. *   NAME
  85. *        cf_GetArgOfItem -- Get the parent node of an item node.
  86. *
  87. *   SYNOPSIS
  88. *        ArgNode = cf_GetArgOfItem(ItemNode)
  89. *
  90. *        ARGNODE/N cf_GetArgOfItem(ITEMNODE/N/A)
  91. *
  92. *   FUNCTION
  93. *        This function gets the parent node (ArgNode) of an item node.
  94. *
  95. *   INPUTS
  96. *        ItemNode - The item node.
  97. *
  98. *   RESULT
  99. *        ArgNode - Pointer to the argument node.
  100. *
  101. *   SEE ALSO
  102. *        cf_GetGrpOfArg(), cf_GetHdrOfGrp()
  103. *
  104. ******************************************************************************
  105. *
  106. */
  107.  
  108. UWORD rxcf_GetArgOfItem ( RX_FUNC_ARGS, CFItem * ItemNode )
  109. {
  110.     CFArgument    * ArgNode;
  111.  
  112.     if ( ArgNode = cf_GetArgOfItem (ItemNode) )
  113.         *ResStr = CreateNumArgStrP (ArgNode);
  114.     return (RC_OK);
  115. }
  116.